home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / teapots.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  425 b   |  17 lines
  1. ReadArchive "statics.vib"
  2.  
  3. static skymap = ImageFile("sky.jpg",BILINEAR)
  4.  
  5. Declare skyexpression = mix((Level == 0 ? PlanarImageMapping(skymap, Po) : SphericalImageMapping(skymap, I)), '0.929412,0.907843,1', 0.3)
  6.  
  7. Declare MetallicTP = PlainSurface [
  8.  Kd 0.65
  9.  Ks 0.35
  10.  ReitzSpecularBRDF 12
  11.  Kr 0.35
  12.  Kb 2.0
  13.  MetalAttribute 1.4
  14. ]
  15.  
  16. Declare Ground = Shader [ PlainSurface [ Color '0.837, 0.825, 0.806' Kd 0.9 ] ]
  17.